home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mobiclic 55
/
MOBICLIC 55.ISO
/
DATA
/
MOBICLUB
/
MEDIATTI.CST
/
00015_Script_loop + relance
< prev
next >
Wrap
Text File
|
2003-06-26
|
1KB
|
47 lines
property pTicks,pDone,pSon,pTemps
--xxxxxxxxxxx
on getBehaviorDescription me
return \
"Lance un comment de relance au bout d'un certain temps."
end getBehaviorDescription
--xxxxxxxxxxx
on getBehaviorTooltip me
return \
"Indiquer quel comment doit etre lancΘ et au bout de combien de temps."
end getBehaviorTooltip
--xxxxxxxxxxx
on getPropertyDescriptionList
vPDList = [:]
setaProp vPDList, #pSon, [#comment: "Quel comment de relance doit etre jouΘ ?", \
#format: #string, #default: the moviename.char[1..4]]
setaProp vPDList, #pTemps, [#comment: "Au bout de combien de temps en secondes ?", \
#format: #integer, #default: 5,#range:[#min:1,#max:15]]
return vPDList
end getPropertyDescriptionList
--xxxx
on beginsprite
pTicks = the ticks
pDone = 0
end
--xxxx
on exitFrame me
if sprite(150).visible = 0 then
if the ticks >= (pTicks + pTemps*60) and pDone = 0 then
joueson pSon
pDone = 1
end if
if Soundbusy(3) = 0 and pDone = 1 then
pTicks = the ticks
pDone = 0
end if
end if
go the frame
end
--xxxx
on initTicks
pTicks = the ticks
pDone = 0
end